0 REM COPYRIGHT 1995 - COMPUTE PUBLICATION INTL LTD - ALL RIGHTS RESERVED
1 X=X+1:IFX=1THENPRINT"[147]ONE MOMENT":FORT=0TO1323:READA:POKE49152+T,A:NEXTT
6 POKE53280,0:POKE53281,0
11 IFX>2THENSYS49152:GOSUB171:GOTO56
16 DIMIT$(14):GOSUB171:GOTO56
21 PRINT"[147]WRITE A PAGE OF TEXT 14 LINES 32 BYTES"
26 PRINT"  HIT ANY KEY TO CONTINUE"
31 GETA$:IFA$=""THEN31
36 FORT=1TO14:B$="TYPE LINE"+STR$(T):PRINTB$:INPUT"TEXT";LN$
41 L=LEN(LN$):IFL<32THENGOSUB141
46 IT$(T)=LEFT$(LN$,32)
51 NEXTT:GOSUB161
56 C=PEEK(50000):PRINT"[147]"+CHR$(PEEK(50011+C))
61 FORT=1TO14:PRINTSTR$(T);" ";IT$(T):NEXTT
66 PRINT"V VIEW L LOAD SSAVE OR * WRITE PAGE"
71 PRINT"D TO DISPLAY SCROLL EFFECT OR E TO EDIT"
76 PRINT"C TO CHANGE CHARACTER COLOR"
81 PRINT"Q TO QUIT"
86 GETA$:IFA$=""THEN86
91 IFA$="*"THEN21
96 IFA$="V"THEN56
101 IFA$="E"THENGOSUB201:GOSUB161:GOTO56
106 IFA$="C"THENGOSUB231:GOTO56
111 IFA$="Q"THENPRINT"[147]":END
116 IFA$="S"THENGOSUB181:GOTO66
121 IFA$="L"THEN151
126 IFA$="D"THENSYS49152:GOTO56
131 IFA$="R"THEN21
136 GOTO86
141 A$=" .................................."
146 LN$=LN$+A$:LN$=LEFT$(LN$,32):RETURN
151 PRINT:INPUT"LOAD FILENAME";IT$
156 LOADIT$,8,1
161 X=50027:FORT=1TO14
166 FORR=1TO32:A=ASC(MID$(IT$(T),R,1)):POKEX,A:X=X+1:NEXTR,T:RETURN
171 X=50027:FORT=1TO14:IT$(T)=""
176 FORR=1TO32:IT$(T)=IT$(T)+CHR$(PEEK(X)):X=X+1:NEXTR,T:RETURN
181 PRINT:INPUT"FILENAME";IT$
186 EA=50475:SA=49152
191 SYS57812IT$,8:POKE173,SA/256:POKE172,SA-PEEK(173)*256:POKE780,172
196 POKE782,EA/256:POKE781,EA-PEEK(782)*256:SYS65496:RETURN
201 PRINT:INPUT"LINE NUMBER";N
206 IFN<1ORN>14THEN201
211 PRINT:PRINTIT$(N)
216 PRINT"ENTER LINE"
221 INPUT"";LN$
226 GOSUB141:IT$(N)=LEFT$(LN$,32):RETURN
231 PRINT:INPUT"COLOR 0-15";C
236 IFC>15THEN231
241 POKE50000,C:RETURN
900 DATA216,174,80,195,189,91,195,32,210,255,169,0,141,32,208,141
901 DATA33,208,169,147,32,210,255,160,0,169,4,133,252,169,216,133
902 DATA254,169,0,133,251,133,253,32,69,193,145,251,138,145,253,200
903 DATA32,69,193,145,251,138,145,253,200,192,40,144,234,162,0,160
904 DATA0,32,139,194,32,167,194,142,88,195,32,69,193,145,251,138
905 DATA145,253,160,39,32,69,193,145,251,138,145,253,174,88,195,160
906 DATA0,232,224,22,208,219,162,0,160,0,32,139,194,32,167,194
907 DATA32,69,193,145,251,138,145,253,200,32,69,193,145,251,138,145
908 DATA253,200,192,40,144,234,162,0,160,0,169,17,32,210,255,200
909 DATA192,5,208,246,169,0,141,83,195,169,107,133,253,169,195,133
910 DATA254,169,201,141,85,195,169,4,141,86,195,160,0,32,69,194
911 DATA32,104,194,24,32,7,195,177,253,141,90,195,32,231,194,32
912 DATA210,255,140,81,195,24,165,253,105,31,133,251,165,254,105,0
913 DATA133,252,56,165,251,237,81,195,133,251,165,252,233,0,133,252
914 DATA140,81,195,160,0,177,251,141,90,195,32,231,194,32,210,255
915 DATA172,81,195,32,104,193,200,192,16,208,178,160,0,24,165,253
916 DATA105,32,133,253,165,254,105,0,133,254,169,13,32,210,255,24
917 DATA173,85,195,105,40,141,85,195,173,86,195,105,0,141,86,195
918 DATA24,173,83,195,105,1,141,83,195,201,14,208,21,169,0,141
919 DATA83,195,32,36,195,165,203,201,64,208,6,32,104,193,76,53
920 DATA193,96,76,171,192,173,87,195,201,46,240,12,201,42,240,16
921 DATA169,46,141,87,195,162,1,96,169,42,141,87,195,162,2,96
922 DATA169,45,141,87,195,162,6,96,140,84,195,160,0,152,170,141
923 DATA82,195,200,192,128,208,251,160,0,232,224,128,208,251,24,173
924 DATA82,195,105,1,141,82,195,201,30,208,231,169,0,133,251,169
925 DATA216,133,252,160,0,177,251,141,89,195,160,1,177,251,136,145
926 DATA251,200,200,192,40,208,245,136,173,89,195,145,251,169,152,133
927 DATA251,169,219,133,252,160,0,177,251,141,89,195,160,1,177,251
928 DATA136,145,251,200,200,192,40,208,245,136,173,89,195,145,251,169
929 DATA40,133,251,169,216,133,252,160,0,177,251,141,89,195,32,139
930 DATA194,177,251,141,90,195,32,153,194,173,90,195,145,251,32,139
931 DATA194,32,139,194,165,252,201,219,208,231,165,251,201,152,208,225
932 DATA32,153,194,173,89,195,145,251,169,79,133,251,169,216,133,252
933 DATA160,0,177,251,141,89,195,32,139,194,177,251,141,90,195,32
934 DATA153,194,173,90,195,145,251,32,139,194,32,139,194,165,252,201
935 DATA219,208,231,165,251,201,191,208,225,32,153,194,173,89,195,145
936 DATA251,172,84,195,96,140,84,195,160,1,173,85,195,133,251,173
937 DATA86,195,133,252,162,0,177,251,136,145,251,32,181,194,200,200
938 DATA192,19,208,242,172,84,195,96,140,84,195,160,36,173,85,195
939 DATA133,251,173,86,195,133,252,162,0,177,251,200,145,251,32,181
940 DATA194,136,136,192,18,208,242,172,84,195,96,24,165,251,105,40
941 DATA133,251,165,252,105,0,133,252,96,56,165,251,233,40,133,251
942 DATA165,252,233,0,133,252,96,24,165,253,105,40,133,253,165,254
943 DATA105,0,133,254,96,141,90,195,165,251,72,165,252,72,173,90
944 DATA195,201,27,176,29,174,80,195,24,165,251,105,0,133,251,165
945 DATA252,105,212,133,252,138,145,251,104,133,252,104,133,251,173,90
946 DATA195,96,162,14,76,200,194,173,90,195,201,65,144,17,201,91
947 DATA176,13,174,80,195,189,91,195,32,210,255,173,90,195,96,169
948 DATA154,32,210,255,76,251,194,140,84,195,169,13,32,210,255,169
949 DATA145,32,210,255,160,0,169,29,32,210,255,200,192,19,208,246
950 DATA172,84,195,96,160,0,185,50,195,32,210,255,200,192,30,208
951 DATA245,96,13,13,28,29,29,32,32,32,32,32,32,32,32,32
952 DATA32,80,82,69,83,83,32,65,78,89,32,75,69,89,32,33
953 DATA6,0,0,0,0,0,0,46,0,0,0,144,5,28,159,156
954 DATA30,31,158,129,149,150,151,152,153,154,155,84,69,88,84,32
955 DATA83,67,82,79,76,76,69,82,32,38,32,83,67,82,69,69
956 DATA78,32,68,69,83,73,71,78,69,82,32,46,46,46,46,46
957 DATA46,46,46,46,46,46,46,46,46,46,46,46,46,46,46,46
958 DATA46,46,46,46,46,46,46,46,46,46,46,62,62,62,62,62
959 DATA62,62,62,62,62,62,62,62,62,62,62,60,60,60,60,60
960 DATA60,60,60,60,60,60,60,60,60,60,60,40,67,41,32,49
961 DATA57,57,53,32,67,79,77,80,85,84,69,32,80,85,66,46
962 DATA32,73,78,84,46,32,76,84,68,46,32,45,45,45,45,45
963 DATA45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
964 DATA45,45,45,45,45,45,45,45,45,45,45,68,69,83,73,71
965 DATA78,32,65,32,83,67,82,69,69,78,32,32,65,78,68,32
966 DATA83,65,86,69,32,73,84,32,85,78,68,69,82,32,65,78
967 DATA89,32,78,65,77,69,32,70,79,82,32,69,88,65,77,80
968 DATA76,69,32,34,70,73,76,69,34,32,32,76,79,65,68,32
969 DATA84,72,69,32,83,65,86,69,68,32,70,73,76,69,32,70
970 DATA82,79,77,32,65,32,66,65,83,73,67,80,82,79,71,82
971 DATA65,77,32,85,83,73,78,71,32,84,72,69,32,70,79,76
972 DATA76,79,87,73,78,71,32,76,73,78,69,49,32,88,61,88
973 DATA43,49,58,73,70,88,61,49,84,72,69,78,32,76,79,65
974 DATA68,34,70,73,76,69,34,44,56,44,49,84,72,69,32,70
975 DATA73,76,69,32,67,65,78,32,66,69,32,65,67,84,73,86
976 DATA65,84,69,68,32,87,73,84,72,32,32,83,89,83,52,57
977 DATA49,53,50,32,32,70,82,79,77,32,65,78,89,32,76,73
978 DATA78,69,32,78,85,77,66,69,82,46,32,46,45,46,45,46
979 DATA45,46,45,46,45,32,66,89,32,68,65,78,73,69,76,32
980 DATA67,46,32,76,73,71,72,84,78,69,82,42,46,42,46,42
981 DATA46,42,46,42,46,42,46,42,46,42,46,42,46,42,46,42
982 DATA46,42,46,42,46,42,46,42,46,42,46,204